home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Business / Calendars / PM Calendar Scripts / 7 cal Sat-Leap < prev    next >
Text File  |  1992-02-18  |  11KB  |  528 lines
  1. —Leap year starting on Saturday
  2. new 12
  3. toolbox off
  4. zeropointreset
  5.  
  6. ————————————————————————————————————————————————
  7. —define styles
  8. —define a style for the days of the month
  9. stylebegin “Days”
  10. font “Times”
  11. tabs 7,  (right, 0.3i, “ “) (right, 1.4i, “ “) (right, 2.6i, “ “) (right, 3.8i, “ “) (right, 5i, “ “) (right, 6.2i, “ “) (right, 7.4i, “ “)
  12. size 18
  13. paraspace 0i,  .7i
  14. leading 72
  15. spaceoptions true, 12, topofcaps 120
  16. paraoptions 1, 0, 0, 0, 0, 0, 0 
  17. styleend “Days”
  18.  
  19. —style for the Names of the months
  20. stylebegin “Months”
  21. font “Times”
  22. alignment center
  23. size 60
  24. typestyle bold
  25. leading auto
  26. paraspace 0i,  .55i
  27. spaceoptions true, 12, proportional, 120
  28. paraoptions 1, 0, 1, 0, 1, 0, 0 
  29. styleend “Months”
  30.  
  31. —style for the Week day names
  32. stylebegin “Days of week”
  33. font “Times”
  34. size 12
  35. typestyle bold
  36. typestyle reverse
  37. leading auto
  38. paraspace 0i,  0i
  39. spaceoptions true, 12, proportional, 120
  40. tabs 7,  (center, 0.5i, “ “) (center, 1.6i, “ “) (center, 2.8i, “ “) (center, 4i, “ “) (center, 5.2i, “ “) (center, 6.4i, “ “) (center, 7.6i, “ “)
  41. styleend “Days of week”
  42.  
  43. —style for the days of the previous/next month entries
  44. stylebegin “Small Days”
  45. font “Times”
  46. size 8
  47. leading auto
  48. paraspace 0i,  .45i
  49. spaceoptions true, 7, proportional, 120
  50. paraoptions 1, 0, 0, 0, 0, 0, 0 
  51. tabs 7,  (right, 0.2i, “ “) (right, .4i, “ “) (right, .6i, “ “) (right, .8i, “ “) (right, 1i, “ “) (right, 1.2i, “ “) (right, 1.4i, “ “)
  52. styleend “Small Days”
  53.  
  54. —style for the Names of the months for the previous/next month entries
  55. stylebegin “Small Months”
  56. font “Times”
  57. alignment center
  58. size 12
  59. leading auto
  60. paraspace 0i,  0.05i
  61. spaceoptions true, 12, proportional, 120
  62. paraoptions 1, 0, 0, 0, 1, 0, 0 
  63. styleend “Small Months”
  64.  
  65. —a working, tempory style used to create text in the calendar.  Removed upon completion
  66. stylebegin “temp”
  67. font “Times”
  68. size 4
  69. tabs 7,  (right, 0.125i, “ “) (right, 0.25i, “ “) (right, 0.375i, “ “) (right, 0.5i, “ “) (right, 0.625i, “ “) (right, 0.75i, “ “) (right, 0.875i, “ “)
  70. paraspace 0i,  0i
  71. paraoptions 0, 0, 0, 0, 0, 0, 0 
  72. styleend “temp”
  73.  
  74.  
  75. removestyle “Body text”
  76. removestyle “Caption”
  77. removestyle “Hanging indent”
  78. removestyle “Headline”
  79. removestyle “Subhead 1”
  80. removestyle “Subhead 2”
  81.  
  82. ————————————————————————————————————————————————
  83. —draw Days grid
  84. pageoptions 0 0    — single-sided pages
  85. pagesize 11i 8.5i
  86. pagemargins 2.3i 0.5i 0.5i 0.5i
  87.  
  88. —draw the 2 lines surrounding a ‘day’
  89. page rm
  90. line 9.5i 2i  10.5i 2i
  91. linestyle onepoint
  92. deselect
  93. line 10.5i 2i  10.5i 2.9i
  94. linestyle fourpoint
  95. selectall
  96. copy  
  97. multiplepaste 6 (-1.2i 0i)
  98. selectall
  99. copy
  100. multiplepaste 5 (0i  1i)
  101. deselect
  102.  
  103. —scratch pad lines
  104. line (0.5i  2i)  (2i  2i)
  105. linestyle onepoint
  106. copy
  107. multiplepaste 9  0i,  .3i
  108. deselect
  109.  
  110. —previous month master page items
  111. line (.5i  5.5i)  (2i  5.5i)
  112. linestyle onepoint
  113. deselect
  114. line (2i  5.5i) (2i  6.4i)
  115. linestyle fourpoint
  116.  
  117. —next month master page items
  118. selectextend 2i 5.5i
  119. copy
  120. multiplepaste 1  0i,  1.5i
  121.  
  122. —draw the Day of the Week box
  123. box (2.3i 1.735i) (10.55i 1.953i)
  124. fillstyle solid
  125. deselect
  126.  
  127. —type the Day of the Week names
  128. newstory  2.3i  1.835i
  129. style “Days of week”
  130. textenter “    Sunday    Monday    Tuesday    Wednesday    Thursday    Friday    Saturday”
  131. select 2.5i 1.835i
  132. move lefttop (2.3i 1.75i)
  133.  
  134. ——————————————————————————————————————————
  135. —Type the names of the months and days
  136. —each month must have 6 lines for correct spacing in the previous/next month sections
  137. page 1
  138. pagemargins 2.3i .5i 0.5i 0.3i
  139. newstory 2.3i .5i
  140. autoflow 1    — set autoflow on
  141.  
  142. style “temp”
  143. textenter “January
  144.                             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  145. February
  146.             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29
  147. March
  148.                 1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  149. April
  150.                             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  151. May
  152.         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  153. June
  154.                     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  155. July
  156.                             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  157. August
  158.             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  159. September
  160.                         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  161. October
  162.     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  163. November
  164.                 1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  165. December
  166.                         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  167. “
  168. ————————————————————————————————————————————————
  169. —style the text
  170. textcursor -para
  171. style “Days”
  172. textcursor -para
  173. style “Months”
  174. textcursor -para
  175. style “Days”
  176. textcursor -para
  177. style “Months”
  178. textcursor -para
  179. style “Days”
  180. textcursor -para
  181. style “Months”
  182. textcursor -para
  183. style “Days”
  184. textcursor -para
  185. style “Months”
  186. textcursor -para
  187. style “Days”
  188. textcursor -para
  189. style “Months”
  190. textcursor -para
  191. style “Days”
  192. textcursor -para
  193. style “Months”
  194. textcursor -para
  195. style “Days”
  196. textcursor -para
  197. style “Months”
  198. textcursor -para
  199. style “Days”
  200. textcursor -para
  201. style “Months”
  202. textcursor -para
  203. style “Days”
  204. textcursor -para
  205. style “Months”
  206. textcursor -para
  207. style “Days”
  208. textcursor -para
  209. style “Months”
  210. textcursor -para
  211. style “Days”
  212. textcursor -para
  213. style “Months”
  214. textcursor -para
  215. style “Days”
  216. textcursor -para
  217. style “Months”
  218.  
  219. ——————————————————————————————————————————————————
  220. —place the Months and their names
  221. select 3i 3i
  222. move lefttop (2.3i  .5i)
  223. placenext
  224. page 2
  225. place 2.3i  .5i
  226.  
  227. —===================================
  228. —create the previous/next month dates
  229. —copy the January of the following year (use May since they begin on the same day of the week) and paste it into a temporary location. 
  230.  
  231. page 5
  232. select 5i 5i
  233. copy
  234. page 1
  235. newstory -2i  1i
  236. paste
  237. select -2i  1i
  238. move lefttop -2i -5i    —correct placement so shades can be closed later
  239.  
  240. —copy and paste the remaining 12 months of the year
  241. select 5i 5i
  242. textedit
  243. selectall
  244. copy
  245. select -2i -5i
  246. textedit
  247. paste
  248.  
  249. —copy and paste December of the previous year (use March since they begin on the same day of the week)
  250. page 3
  251. select 5i 5i
  252. copy
  253. page 1
  254. select -2i -5i
  255. textedit
  256. paste
  257. selectall
  258. typestyle normal
  259. style “temp”    —temporary style so that all the text will fit into the pasteboard space available.
  260.  
  261. —======================================================
  262. —copy, cut and paste these months into the correct order so that the previous and next month can be displayed for each month.
  263.  
  264. textcursor -story
  265. textselect +para
  266. textenter “December
  267. “    —correct name of month (we pasted in March,  correct to December)
  268.  
  269. textcursor +para
  270. textselect +para
  271. textselect +para
  272. cut    — january
  273. textcursor +para
  274. textcursor +para
  275. paste
  276.  
  277. textcursor -para
  278. textcursor -para
  279. textselect -para
  280. textselect -para
  281. copy    —februrary
  282. textcursor +para
  283. textcursor +para
  284. textcursor +para
  285. textcursor +para
  286. paste
  287.  
  288. textcursor -para
  289. textcursor -para
  290. textselect -para
  291. textselect -para
  292. copy    —march
  293. textcursor +para
  294. textcursor +para
  295. textcursor +para
  296. textcursor +para
  297. paste
  298.  
  299. textcursor -para
  300. textcursor -para
  301. textselect -para
  302. textselect -para
  303. copy    —april
  304. textcursor +para
  305. textcursor +para
  306. textcursor +para
  307. textcursor +para
  308. paste
  309.  
  310. textcursor -para
  311. textcursor -para
  312. textselect -para
  313. textselect -para
  314. copy    —may
  315. textcursor +para
  316. textcursor +para
  317. textcursor +para
  318. textcursor +para
  319. paste
  320.  
  321. textcursor -para
  322. textcursor -para
  323. textselect -para
  324. textselect -para
  325. copy    —june
  326. textcursor +para
  327. textcursor +para
  328. textcursor +para
  329. textcursor +para
  330. paste
  331.  
  332. textcursor -para
  333. textcursor -para
  334. textselect -para
  335. textselect -para
  336. copy    —july
  337. textcursor +para
  338. textcursor +para
  339. textcursor +para
  340. textcursor +para
  341. paste
  342.  
  343. textcursor -para
  344. textcursor -para
  345. textselect -para
  346. textselect -para
  347. copy    —august
  348. textcursor +para
  349. textcursor +para
  350. textcursor +para
  351. textcursor +para
  352. paste
  353.  
  354. textcursor -para
  355. textcursor -para
  356. textselect -para
  357. textselect -para
  358. copy    —september
  359. textcursor +para
  360. textcursor +para
  361. textcursor +para
  362. textcursor +para
  363. paste
  364.  
  365. textcursor -para
  366. textcursor -para
  367. textselect -para
  368. textselect -para
  369. copy    —october
  370. textcursor +para
  371. textcursor +para
  372. textcursor +para
  373. textcursor +para
  374. paste
  375.  
  376. textcursor -para
  377. textcursor -para
  378. textselect -para
  379. textselect -para
  380. copy    —november
  381. textcursor +para
  382. textcursor +para
  383. textcursor +para
  384. textcursor +para
  385. paste
  386.  
  387. textselect +para
  388. textenter “January
  389. “    —correct name of month (we pasted in May,  correct to January)
  390.  
  391. ————————————————————————————————————————
  392. —apply the correct style for each paragraph
  393. style “Small Days”
  394. textcursor -para
  395. style “Small Months”
  396. textcursor -para
  397.  
  398. style “Small Days”
  399. textcursor -para
  400. style “Small Months”
  401. textcursor -para
  402.  
  403. style “Small Days”
  404. textcursor -para
  405. style “Small Months”
  406. textcursor -para
  407.  
  408. style “Small Days”
  409. textcursor -para
  410. style “Small Months”
  411. textcursor -para
  412.  
  413. style “Small Days”
  414. textcursor -para
  415. style “Small Months”
  416. textcursor -para
  417.  
  418. style “Small Days”
  419. textcursor -para
  420. style “Small Months”
  421. textcursor -para
  422.  
  423. style “Small Days”
  424. textcursor -para
  425. style “Small Months”
  426. textcursor -para
  427.  
  428. style “Small Days”
  429. textcursor -para
  430. style “Small Months”
  431. textcursor -para
  432.  
  433. style “Small Days”
  434. textcursor -para
  435. style “Small Months”
  436. textcursor -para
  437.  
  438. style “Small Days”
  439. textcursor -para
  440. style “Small Months”
  441. textcursor -para
  442.  
  443. style “Small Days”
  444. textcursor -para
  445. style “Small Months”
  446. textcursor -para
  447.  
  448. style “Small Days”
  449. textcursor -para
  450. style “Small Months”
  451. textcursor -para
  452.  
  453. style “Small Days”
  454. textcursor -para
  455. style “Small Months”
  456. textcursor -para
  457.  
  458. style “Small Days”
  459. textcursor -para
  460. style “Small Months”
  461. textcursor -para
  462.  
  463. style “Small Days”
  464. textcursor -para
  465. style “Small Months”
  466. textcursor -para
  467.  
  468. style “Small Days”
  469. textcursor -para
  470. style “Small Months”
  471. textcursor -para
  472.  
  473. style “Small Days”
  474. textcursor -para
  475. style “Small Months”
  476. textcursor -para
  477.  
  478. style “Small Days”
  479. textcursor -para
  480. style “Small Months”
  481. textcursor -para
  482.  
  483. style “Small Days”
  484. textcursor -para
  485. style “Small Months”
  486. textcursor -para
  487.  
  488. style “Small Days”
  489. textcursor -para
  490. style “Small Months”
  491. textcursor -para
  492.  
  493. style “Small Days”
  494. textcursor -para
  495. style “Small Months”
  496. textcursor -para
  497.  
  498. style “Small Days”
  499. textcursor -para
  500. style “Small Months”
  501. textcursor -para
  502.  
  503. style “Small Days”
  504. textcursor -para
  505. style “Small Months”
  506. textcursor -para
  507.  
  508. style “Small Days”
  509. textcursor -para
  510. style “Small Months”
  511. textcursor -para
  512.  
  513. ————————————————————————————————————————
  514. —place the previous/next month entries 
  515. pagemargins .5i 5.3i 9i 0.5i
  516. select -1i 0i
  517. resize bottom -5i 0 1
  518. —autoflow 1
  519. placenext
  520. place .5i 5.3i
  521.  
  522. ——————————————————————————————————————————————————
  523. —end of routine  — clean-up
  524. removestyle “temp”
  525. page 1
  526. autoflow 0 
  527. pagemargins 2.3i 0.5i 0.5i 0.5i
  528.